#!/usr/bin/perl
use Net::FTP;
my $host = 'rcfisinl1-212';
my $username = 'mfad\m081429';
my $password = "a1234567";
my $ftpdir = "/delivery/Bockol_Matthew_m084061/final_vcf";
my $file = "yourfile";
#-- connect to ftp server
my $ftp = Net::FTP->new($host) or die "Error connecting to $host: $!";
#-- login
$ftp->login($username,$password) or die "Login failed: $!";
#-- chdir to $ftpdir
$ftp->cwd($ftpdir) or die "Can't go to $ftpdir: $!";
#system("/data2/bsi/RandD/bora/Exome_2samples/vcf-query s_1013902935.vcf.gz chr1:229433267-229433267 >/data2/bsi/RandD/bora/Exome_2samples/final_vcf/ftp/singlesnp_singlesample");
$file =`ls `;
print "$file\n";
#open(BUFF,"gunzip -c s_1001302565.vcf.gz |");
# while(<BUFF>)
#{
#	print $_."\n";
#}
$ftp->quit or die "Error closing ftp connection: $!";
